home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / c64 / gfx / p-sutils.arc / P / S ENVELOPES (.txt) < prev    next >
Commodore BASIC  |  1993-04-02  |  2KB  |  55 lines
  1. 10 REM BY FRANK ADENAU
  2. 20 POKE53280,5:POKE53281,0:POKE646,14
  3. 30 PRINT:PRINT"[147]"
  4. 40 PRINT" THIS PROGRAM WILL MAKE AN ENVELOPE FOR  YOUR PRINT SHOP CARD."
  5. 50 PRINT:PRINT" FIRST TURN YOUR PRINTER ON AND ADJUST   YOUR PAPER."
  6. 60 PRINT:PRINT" RETURN INFORMATION"
  7. 70 PRINT:INPUT" NAME";N$
  8. 80 INPUT" ADRESS";A$
  9. 90 INPUT" CITY";C$
  10. 100 INPUT" STATE";S$
  11. 110 INPUT" ZIP CODE";Z$
  12. 120 PRINT:INPUT" IS THIS INFORMATION CORRECT Y/N";X$
  13. 130 IF X$="N" THEN 20
  14. 135 T=0:Y=0
  15. 140 PRINT"[147]":INPUT" HOW MANY ENVELOPES DO YOU WANT";T
  16. 145 FOR Y=1TOT STEP 1
  17. 146 IF Y>T THEN GOTO 170
  18. 150 GOSUB 6000
  19. 160 NEXT Y
  20. 170 END
  21. 6000 OPEN1,4:CMD1
  22. 6010 PRINT"             [215]-------------------------------------------[215]"
  23. 6020 PRINT"            [188]                                             [187]"
  24. 6030 PRINT"           [172]                                              [188]"
  25. 6040 PRINT"           [190]                                               [172]"
  26. 6050 PRINT"          [187]                                                 [172]"
  27. 6060 PRINT"         [188]                                                   [172]"
  28. 6070 PRINT"        [172]                                                     [172]"
  29. 6080 PRINT"        [215]------------------------------------------------------[215]"
  30. 6090 PRINT"     [172]  [199]  "N$,CHR$(16);"63[200] [188]"
  31. 6100 PRINT"  [172]     [199]  "A$,CHR$(16);"63[200]    [190]"
  32. 6110 PRINT"[215]       [199]  "C$","S$,CHR$(16);"63[200]       [215]"
  33. 6115 PRINT"[199]       [199]  "Z$,CHR$(16);"63[200]       [200]"
  34. 6117 I=0
  35. 6120 FOR I=ITO18 STEP 1
  36. 6130 PRINT"[199]       [199]                                                      [200]       [200]"
  37. 6140 NEXT I
  38. 6150 PRINT"[215]       [199]                                                      [200]       [215]"
  39. 6160 PRINT"  [188]     [199]                                                      [200]    [187]"
  40. 6170 PRINT"     [190]  [199]                                                      [200] [172]   "
  41. 6180 PRINT"        [215]------------------------------------------------------[215]"
  42. 6190 PRINT"        [172]                                                      [187]"
  43. 6200 PRINT:PRINT:PRINT
  44. 6210 PRINT"         [190]                                                    [187]"
  45. 6220 PRINT:PRINT:PRINT:PRINT
  46. 6230 PRINT"          [190]                                                  [187]"
  47. 6240 PRINT:PRINT:PRINT:PRINT
  48. 6250 PRINT"           [190]                                                [187]"
  49. 6260 PRINT:PRINT:PRINT
  50. 6270 PRINT"            [187]                                              [187]"
  51. 6280 PRINT:PRINT:PRINT:PRINT
  52. 6290 PRINT"             [215]--------------------------------------------[215]"
  53. 6295 PRINT:PRINT:PRINT:PRINT:PRINT
  54. 6300 PRINT#1:CLOSE1:RETURN
  55.